1 FORX=0TO15:POKE53248+X,.:NEXT 10 POKE53281,.:POKE53280,.:IFA<>0 THEN 40 20 PRINT"[147][208]LEASE WAIT WHILE LOADING...." 30 IF A=0THENA=1:LOAD"GET'N STORE.O",8,1 40 DIM CC$(100,6),DC$(17),IN$(8):GOTO3390 50 PW$="[147][208]LEASE [215]AIT." 60 IFZZ$="N"ORZZ$="[206]"THEN110 70 GOTO2810 80 GETY$:IFY$=""THEN80 90 IFY$<>"Y"ANDY$<>"[217]"ANDY$<>"N"ANDY$<>"[206]"THEN80 100 RETURN 110 OPEN8,8,8,"0:CC$,SEQ,R" 120 INPUT#8,N:IF N=0THEN170 130 FORI=1TON 140 FORJ=1TO6 150 INPUT#8,CC$(I,J) 160 NEXTJ:NEXTI 170 CLOSE8 180 REM------DISK ERROR CHECK----------- 190 OPEN15,8,15 200 INPUT#15,EN,EM$,ET,ES 210 IFEN<>0THENPRINTEN,EM$,ET,ES: 220 CLOSE15 230 REM------MAIN MENU------------------ 240 B=100:PRINT"[147][158]":SP$="[182] [146][181]":RESTORE:X=0:Y=0:GOSUB2500 250 GOSUB4370 260 PRINTSPC(18)CHR$(14)""N:PRINTSPC(12)" [205]AILING [204]ABELS ":CH=0 270 PRINTSPC(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINTSPC(11)"[172][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][187]" 280 PRINTSPC(11)SP$ 290 PRINTSPC(11)"[182][214]IEW [193]LL [204]ABELS [146][181]":PRINTSPC(11)SP$ 300 PRINTSPC(11)"[182] [206]EW [193]DDITIONS [146][181]":PRINTSPC(11)SP$ 310 PRINTSPC(11)"[182] [208]RINT [204]IST [146][181]":PRINTSPC(11)SP$ 320 PRINTSPC(11)"[182][211]CRATCH A [204]ABEL [146][181]":PRINTSPC(11)SP$ 330 PRINTSPC(11)"[182] [211]EARCH FOR ? [146][181]":PRINTSPC(11)SP$ 340 PRINTSPC(11)"[182] [209]UIT [146][181]":PRINTSPC(11)SP$ 350 PRINTSPC(11)"[188][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][190]": 360 PRINT"[158][197]NTER YOUR SELECTION WITH THE [195][210][211][210] KEYS "; 370 PRINT"[207]NCE SELECTED, PRESS [210][197][212][213][210][206] TO CONTINUE" 380 GOSUB4410 390 GET CH$:IF CH$=""THEN390 400 IFCH$="[145]"ANDB=84+16 THENB=196 410 IFCH$=""ANDB=180THENB=84 420 IFCH$=""THENB=B+16:POKEV+1,B:POKEV+3,B:POKEV+5,B 430 IFCH$="[145]"THENB=B-16:POKEV+1,B:POKEV+3,B:POKEV+5,B 440 IFCH$=CHR$(13)THENGOSUB2480:GOTO460 450 GOTO390 460 POKEV+1,.:POKEV+3,.:POKEV+5,. 470 IFB=100THEN540 480 IFB=116THEN850 490 IFB=132THEN1670 500 IFB=148THEN720 510 IFB=164THEN1100 520 IFB=180THEN1840 530 REM-------VIEW ALL CARDS----------- 540 PRINT"[147]"SPC(17)CHR$(14)""N:POKEV+21,0:GOSUB2500 550 PRINTSPC(12)"[214]IEW ALL [204]ABELS" 560 PRINTSPC(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":GOSUB2140 570 IF N=0 THEN240 580 FORI=1TON:IFI<1THENI=1 590 GOSUB2080 600 GOSUB4310 610 GETY$:IFY$=""THEN610 620 IFY$<>"E"ANDY$<>"P"ANDY$<>"M"ANDY$<>"-"ANDY$<>"+"THEN610 630 IFY$="E"THENGOSUB2480:GH=I:GOSUB2310:GOSUB1320:I=I-1 640 IFY$="P"THENGOSUB2480:GOSUB2310:GOSUB1950:GOSUB2300:I=I-1 650 IFY$="M"THENGOSUB2480:GOTO240 660 IFY$="-"THENGOSUB2480:I=I-2 670 IFY$="+"THENGOSUB2480 680 IFI=NTHENGOSUB3780:GOTO240 690 GOSUB2320 700 NEXTI 710 REM------SCRATCH A CARD------------ 720 POKEV+21,0:PRINT"[147]"CHR$(14)SPC(12)"[211]CRATCH A LABEL":GOSUB2140:GOSUB2500 730 PRINT"[197]NTER [204]AST [206]AME":GOSUB3860:GOSUB3340:IFTU=1THEN750 740 PRINT"":GOSUB2750:GOTO240 750 O=I:TU=0 760 FORI=OTON:GOSUB2080:GOSUB4330 770 GETY$:IFY$=""THEN770 780 IFY$<>"S"ANDY$<>"T"ANDY$<>"M"THEN770 790 IFY$="S"THENGOSUB2480:GOTO820 800 IFY$="T"THENGOSUB2480:GOTO720 810 IFY$="M"THENGOSUB2480:RESTORE:GOTO240 820 CC$(I,1)=CHR$(255) 830 GOSUB2520:N=N-1:GOSUB2660:GOTO240 840 REM-------NEW ADDITIONS----------- 850 N=N+1:I=N:POKEV+21,0:PRINT"[147]":PRINTSPC(13)"[206]EW [193]DDITIONS":GOSUB2500 860 PRINTSPC(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":GOSUB2140 870 PRINTCHR$(14)"[197]NTER [204]AST [206]AME":GOSUB3860:CC$(I,1)=LO$ 880 PRINT"":LO$="" 890 X=7:Y=13:GOSUB4420:PRINT""CC$(I,1) 900 GOSUB2300 910 PRINT"[197]NTER [198]IRST[206]AME":GOSUB3900:CC$(I,2)=BL$:BL$="" 920 PRINT"" 930 X=7:Y=13:GOSUB4420:PRINT""CC$(I,2)" "CC$(I,1) 940 GOSUB2300 950 PRINT"[197]NTER [200]OUSE [193]DDRESS":GOSUB3950:CC$(I,3)=BL$:BL$="" 960 PRINT"" 970 X=7:Y=14:GOSUB4420:PRINT""CC$(I,3):GOSUB2300 980 PRINT"[197]NTER [195]ITY AND [211]TATE ":GOSUB4000:PRINT"" 990 X=7:Y=15:GOSUB4420:PRINT""CC$(I,4)", "CC$(I,5):GOSUB2300 1000 PRINT"[197]NTER [218]IP [195]ODE":GOSUB4100:PRINT"" 1010 X=7:Y=16:GOSUB4420:PRINT" "CC$(I,6):GOSUB2300 1020 X=2:Y=22:GOSUB4420:PRINT"[210]E-ENTER / [193]DD ANOTHER / [211]AVE / [197]XIT" 1030 GETYC$:IF YC$=""THEN1030 1040 IFYC$="R"ORYC$="[210]"THENGOSUB2480:GOSUB2310:GOTO860 1050 IFYC$="[197]"ORYC$="E"THENN=N-1:GOTO240 1060 IFYC$="A"ORYC$="[193]"THENPRINTPL$:GOSUB2480:GOSUB2520:GOSUB2660:GOTO850 1070 IFYC$="S"ORYC$="[211]"THENGOSUB2480:GOSUB2520:GOSUB2660:GOTO240 1080 GOTO1030 1090 REM------SEARCH FOR---------------- 1100 POKEV+21,0:PRINT"[147]"CHR$(14)SPC(12)"[211]EARCHING FOR ?":GOSUB2140:GOSUB2500 1110 PRINT""SPC(11)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 1120 PRINT"[197]NTER [204]AST [206]AME ":GOSUB3860:GOSUB3340:IFTU=1THEN1140 1130 PRINT"":GOSUB2750:GOTO240 1140 O=I:TU=0 1150 FORI=OTON:IFI<1THENI=1 1160 GOSUB2080:GOSUB4310 1170 GETY$:IFY$=""THEN1170 1180 IFY$<>"E"ANDY$<>"P"ANDY$<>"M"ANDY$<>"-"ANDY$<>"+"THEN1170 1190 IFY$="E"THENGOSUB2480:GH=I:GOSUB2310:GOSUB1320:I=I-1 1200 IFY$="P"THENGOSUB2480:GOSUB2310:GOSUB1950:GOSUB2300:I=I-1 1210 IFY$="M"THENGOSUB2480:GOTO240 1220 IFY$="-"THENGOSUB2480:I=I-2 1230 IFY$="+"THENGOSUB2480 1240 IFI=NTHENGOSUB3780:GOTO240 1250 GOSUB2320 1260 NEXTI 1270 GETYC$:IF YC$=""THEN1270 1280 IF YC$="Y"THEN1100 1290 IFYC$="N"THEN240 1300 IFYC$<>"Y"ANDYC$<>"N"THEN1270 1310 REM------CORRECTIONS----SEARCH----- 1320 GOSUB2360:PRINT""SPC(14)CHR$(14)"[197]DIT A [204]ABEL":GOSUB2500 1330 PRINTSPC(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT""CC$(I,1):GOSUB2790 1340 GOSUB80 1350 IFY$="N"ORY$="[206]"THENGOSUB2430:GOTO1370 1360 GOSUB2300:GOSUB2370:GOSUB2430:GOSUB3860:CC$(I,1)=LO$ 1370 LO$="":LN=LEN(CC$(I,1)):IFLN>27THEN1340 1380 X=7:Y=13:GOSUB4420:PRINT""CC$(I,1) 1390 GOSUB2300:PRINT""CC$(I,2):GOSUB2790 1400 GOSUB80 1410 IFY$="N"ORY$="[206]"THENGOSUB2430:GOTO1430 1420 GOSUB2300:GOSUB2380:GOSUB2430:GOSUB3900:BL$="" 1430 X=7:Y=13:GOSUB4420:PRINT""CC$(I,2)" "CC$(I,1) 1440 GOSUB2300:PRINT""CC$(I,3):GOSUB2790 1450 GOSUB80 1460 IFY$="N"ORY$="[206]"THENGOSUB2440:GOTO1480 1470 GOSUB2300:GOSUB2390:GOSUB2440:GOSUB3950:BL$="" 1480 X=7:Y=14:GOSUB4420:PRINT""CC$(I,3) 1490 GOSUB2300:PRINT""CC$(I,4):GOSUB2790 1500 GOSUB80 1510 IFY$="N"ORY$="[206]"THENGOSUB2450:GOTO1530 1520 GOSUB2300:GOSUB2400:GOSUB2450:GOSUB4150 1530 X=7:Y=15:GOSUB4420:PRINT""CC$(I,4) 1540 GOSUB2300:PRINT""CC$(I,5):GOSUB2790 1550 GOSUB80 1560 IFY$="N"ORY$="[206]"THENGOSUB2450:GOTO1580 1570 GOSUB2300:GOSUB2410:GOSUB2450:GOSUB4200 1580 X=7:Y=15:GOSUB4420:PRINT""CC$(I,4)", "CC$(I,5) 1590 GOSUB2300:PRINT""CC$(I,6):GOSUB2790 1600 GOSUB80 1610 IFY$="N"ORY$="[206]"THENGOSUB2460:GOTO1630 1620 GOSUB2300:GOSUB2420:GOSUB2460:GOSUB4100 1630 X=20:Y=16:GOSUB4420:PRINT""CC$(I,6) 1640 GOSUB2300:GOSUB2320:GOSUB2080:GOSUB2520:GOSUB2660:I=GH 1650 RETURN 1660 REM------PRINT ROUTINE------------- 1670 PRINT"[147]"SPC(12)CHR$(14)"[208]RINT ALL [204]ABELS":POKEV+21,0:GOSUB2500 1680 PRINTSPC(12)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 1690 GOSUB4350 1700 GETY$:IFY$=""THEN1700 1710 IFY$<>"C"ANDY$<>"M"THEN1700 1720 IFY$="C"THENGOSUB2310:GOSUB4360:GOTO1740 1730 IFY$="M"THEN240 1740 OPEN16,4,15:CLOSE16:IFST<>0 THEN GOSUB 10000 :GOTO 1820 1749 OPEN4,4,0 1750 FORI=1TON 1760 PRINT#4,CHR$(13) 1770 PRINT#4,CHR$(17); CC$(I,2)" "CC$(I,1) 1780 PRINT#4,CHR$(17); CC$(I,3) 1790 PRINT#4,CHR$(17); CC$(I,4)", "CC$(I,5) 1800 PRINT#4,SPC(15)CC$(I,6) 1810 NEXTI 1820 CLOSE4 1830 GOTO240 1840 PRINT"[153][209]UIT TO [204][207][193][196][211][212][193][210] : [193]RE YOU SURE ? ([217]/[206]) "; 1850 PRINT" "; 1860 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1860 1870 IFA$="Y"THEN1900 1880 IFA$="N"THEN 360 1890 GOTO 1850 1900 POKEV+21,0:POKES+24,0:POKE53275,. 1910 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15 1920 IFER<>63 THEN PRINT"[147]":END 1930 LOAD"HELLO CONNECT",8 1940 : 1950 PRINT" # OF [195]OPIES AND THEN PRESS [210][197][212][213][210][206].":GOSUB4250:ZQ=VAL(ZC$) 1960 IF ZQ=0 THEN 240 1970 FORX=1TOZQ 1975 OPEN16,4,15:CLOSE16:IFST<>0 THEN GOSUB 10000:GOTO 240 1980 OPEN4,4 1990 PRINT#4,CHR$(13) 2000 PRINT#4,CHR$(17); CC$(I,2)" " CC$(I,1) 2010 PRINT#4,CHR$(17); CC$(I,3) 2020 PRINT#4,CHR$(17); CC$(I,4)", " CC$(I,5) 2030 PRINT#4,SPC(15)CC$(I,6) 2040 CLOSE4 2050 NEXTX 2060 RETURN 2070 REM------SCREEN DISPLAY----------- 2080 POKE214,9:PRINT:PRINTSPC(14)CHR$(14)"[204]ABEL # "I"" 2090 PRINTSPC(7)""CHR$(18)CC$(I,2)" "CC$(I,1) 2100 PRINTSPC(7)CHR$(18)CC$(I,3) 2110 PRINTSPC(7)CHR$(18)CC$(I,4)", "CC$(I,5) 2120 PRINTSPC(22)CHR$(18)CC$(I,6) 2130 RETURN 2140 PRINT"[152] [172][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][187] 2150 [153]"PRINT# ABS PRINT#WAITINT 2160 PRINT"[152] [182] [152][146][181] 2170 [153]"PRINT# ABS PRINT#WAITINT 2180 PRINT"[152] [182] [152][146][181] 2190 [153]"PRINT# ABS PRINT#WAITINT 2200 PRINT"[152] [182] [146][152][181] 2210 [153]"PRINT# LOGFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRECOS 2215 RETURN 2300 FORX=1264TO1384:POKEX,32:NEXTX:RETURN 2310 FORX=1904TO1984:POKEX,32:NEXT:RETURN 2320 PRINT"[152] [182] [152][146][181] 2330 [153]"PRINT# ABS PRINT#WAITINT 2340 PRINT"[152] [182] [152][146][181] 2350 [153]"PRINT# ABS PRINT#WAITINT":[142] 2360 [129]X[178]1104[164]1183:[151]X,32:[130]:[142] 2370 [153][166]5)"ONVALNTER (null)AST (null)AME":[142] 2380 [153][166]5)"ONVALNTER ASCIRST (null)AME":[142] 2390 [153][166]5)"ONVALNTER LEFT$OUSE ATNDDRESS":[142] 2400 [153][166]5)"ONVALNTER LENITY":[142] 2410 [153][166]5)"ONVALNTER (null)TATE":[142] 2420 [153][166]5)"ONVALNTER (null)IP LENODE":[142] 2430 [129]X[178]1550[164]1578:[151]X,160:[130]:[142] 2440 [129]X[178]1590[164]1618:[151]X,160:[130]:[142] 2450 [129]X[178]1630[164]1658:[151]X,160:[130]:[142] 2460 [129]X[178]1670[164]1698:[151]X,160:[130]:[142] 2470 [143]----BELL---SOUND--------- 2480 S[178]54272:[151]S[170]1,112:[151]S[170]5,10:[151]S[170]6,9:[151]S[170]24,15:[151]S[170]4,17:[151]S[170]4,16 2490 [142] 2500 [129]S[178]54272[164]54296:[151]S,0:[130]:[142] 2510 [143]------SORT ROUTINE------------- 2520 : 2530 F[178]0:[139] N[178]1[167]2640 2540 [129]X[178]1[164]N[171]1 2550 [139]CC$(X,1)[179][178]CC$(X[170]1,1)[167]2620 2560 F[178]1 2570 [129]T[178]1[164]6 2580 S$(T)[178]CC$(X,T) 2590 CC$(X,T)[178]CC$(X[170]1,T) 2600 CC$(X[170]1,T)[178]S$(T) 2610 [130]T 2620 [130]X 2630 [139] F[179][177]0[167]2520 2640 [142] 2650 [143]------SAVE ROUTINE------------- 2660 [159]8,8,8,"@0:CC$,SEQ,W" 2670 [152]8,N 2680 [129]I[178]1[164]N 2690 [129]J[178]1[164]6 2700 [152]8,CC$(I,J) 2710 [130]J 2720 [130]I 2730 [160] 8 2740 [142] 2750 [153]"ON (null)ABEL NOT FOUND. (null)RESS (null)(null)ATNLENVALWAIT" 2760 [161]FF$:[139]FF$[179][177]" "[167]2760 2770 [142] 2780 [143]------CHANGE A RECORD---------- 2790 [153][166]17)"SYSLENHANGE IT? ((null)/(null))" 2800 [142] 2810 [151]53281,0:[151]53280,0:[153]"LOAD"[199](14):VR[178]1 2820 [153][166]14)"RIGHT$NSTRUCTIONS":[153][166]13)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(CONT" 2830 [153]" (null)HE (null)AIN (null)ENU PROVIDES YOU WITH" 2840 [153]"(null)IEW ATNLL (null)ABELSCONT, ATNPPENDCONT, STR$ELETECONT, (null)RINT" 2850 [153]"(null)ISTCONT, (null)EARCH ASCORCONT AND (null)UITCONT." 2860 [153]" (null)IEW ATNLL (null)ABELS CONTPRINTS TO THE" 2870 [153]"SCREEN THE FIRST LABEL IN THE FILE AND" 2880 [153]"DISPLAYS THE SAME OPTIONS AS (null)EARCHCONT." 2890 [153]" (null)EARCH ASCORCONT WILL ASK FOR A LAST NAME" 2900 [153]"AND PRINT THAT LABEL ON THE SCREEN." 2910 [153]"(null)HEN VIEWING LABELS THROUGH (null)IEW ATNLL" 2920 [153]"(null)ABELSCONT OR (null)EARCH ASCORCONT YOU WILL BE GIVEN" 2930 [153]"THE OPTION TO VALDITCONT, (null)RINTCONT, +CONT OR -CONT (LIST" 2940 [153]"FORWARD OR BACKWARD), OR RETURN TO THE" 2950 [153]"(null)AIN (null)ENUCONT." 2960 [141]3260:[153]"LOAD" 2970 [153][166]11)"(null)IEW ATNLL & (null)EARCH FOR":[153][166]10)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(CONT" 2980 [153]" VALDITCONT ALLOWS YOU TO CHANGE THE WHOLE" 2990 [153]"LABEL OR ANY PART OF IT. (null)RINTCONT LETS" 3000 [153]"YOU PRINT THAT LABEL EXACTLY AS IT" 3010 [153]"APPEARS ON THE SCREEN AS MANY TIMES AS" 3020 [153]"YOU CHOOSE WHEN IT ASKS LEFT$OW (null)ANY?" 3030 [153]" -CONT MEANS VIEW THE PREVIOUS LABEL." 3040 [153]" +CONT MEANS TO VIEW THE NEXT LABEL." 3050 [153]" (null)AIN (null)ENUCONT BRINGS YOU BACK TO THE" " 3060 PRINT"[205]AIN [205]ENU." 3070 PRINT" [210]EMEMBER[158] - [154][215]HAT YOU SEE ON THE" 3080 PRINT"SCREEN IS WHAT YOU GET ON THE LABEL, SO" 3090 PRINT"USE UPPER- AND LOWER-CASE LETTERS WHEN" 3100 PRINT"YOU [197]DIT[154]." 3110 GOSUB3260 3120 PRINT"[147]":PRINTSPC(17)"[196]ELETE":PRINTSPC(16)"[163][163][163][163][163][163][163][163][154]" 3130 PRINT"  [196]ELETE[154] WILL FIRST ASK FOR A LAST" 3140 PRINT"NAME AND SHOW THAT LABEL ON THE SCREEN." 3150 PRINT"[212]HEN YOU PRESS [211][154] FOR [211]CRATCH, +[154] FOR" 3160 PRINT"THE NEXT LABEL OR -[154] FOR THE PREVIOUS" 3170 PRINT"LABEL. 3180 [153]"  (null)RINT (null)ISTCONT WILL PRINT THE ENTIRE" 3190 [153]"LIST WITHOUT STOPPING. (null)AKE SURE YOUR" 3200 [153]"LABELS ARE LINED UP CORRECTLY BEFORE" 3210 [153]"YOU CHOOSE (null)RINT (null)ISTCONT. (null)OU CAN ALIGN" 3220 [153]"THE FIRST LABEL BY PRINTING ONE LABEL" 3230 [153]"USING THE (null)IEW ATNLLCONT OR (null)EARCH ASCOR" 3240 [153]"CONTMENUS. 3250 GOTO3290 3260 POKE214,22:PRINT:PRINTSPC(10)"[154]->[158] [208]RESS [193]NY [203]EY [154]<-" 3270 GETY$:IFY$=""THEN3270 3280 RETURN 3290 PRINT"[158][208]RESS [201][158]NSTRUCTIONS OR [205][158]AIN [205]ENU" 3300 GETY$:IFY$=""THEN3300 3310 IFY$<>"[201]"ANDY$<>"I"ANDY$<>"[205]"ANDY$<>"M"THEN3300 3320 IFY$="[201]"ORY$="I"THEN2810 3330 IFY$="[205]"ORY$="M"THEN110 3340 FORI=1TON 3350 IFCC$(I,1)=LO$THENGOSUB2300:TU=1:GOTO3380 3360 NEXTI 3370 GOSUB2300 3380 LO$="":RETURN 3390 POKE53281,0:POKE53280,0:DC$(17)=CHR$(13) 3400 PRINT"[147] [158] LOADSTAR PRESENTS[154]"CHR$(142) 3410 DC$(5)="[223]" 3420 DC$(1)="[223][169][169] [223][169] [169][169][223][169][169] [223]" 3430 DC$(2)=" [223][169]       [146][223]  " 3440 DC$(3)=" [146][223][169]      [223]  [146][223]" 3450 DC$(4)="[169][223][169][223][223] [146][223][169][223][169][223] [146][169]" 3460 DC$(6)=" " 3470 DC$(7)=" [169] [223] [223][169] [223][223][169] [223]" 3480 DC$(8)="    [146][169] [146][169]  [223][146][223]" 3490 DC$(9)="      [146][223] [223]" 3500 DC$(10)="   [223] [223] [223][146][223] " 3510 DC$(11)="[223] [223][146][169] [223]  [146][169] [223] [146][169][146][223] [223][146][223] [146][169]" 3520 DC$(12)="[194]YN[194]" 3530 DC$(15)="[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]" 3540 DC$(16)="[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]" 3550 GOSUB3670:PRINT"":GOSUB3710:PRINT"[145][145]":GOSUB3730 3560 PRINT"[145][145][145][145][145][145][145]":GOSUB3720 3570 FORT=1TO15:POKE646,T:GOSUB3600 3580 GETZZ$:IFZZ$="Y"ORZZ$="N"ORZZ$="[217]"ORZZ$="[206]"THEN60 3590 FORO=1TO90:NEXT:NEXT:GOTO3570 3600 PRINT"" 3610 PRINTDC$(5)DC$(17)DC$(1)DC$(17)DC$(2)DC$(17)DC$(3)DC$(17)DC$(4)DC$(17) 3620 PRINT"[145]"DC$(6)DC$(17)DC$(6)DC$(17)DC$(7)DC$(17)DC$(8)DC$(17)DC$(9)DC$(17) 3630 PRINT"[145]"DC$(10)DC$(17)DC$(11) 3640 IFT+2=16THENT=1 3650 POKE646,T+2:PRINT"[145]"DC$(15)DC$(17)DC$(12)DC$(17)DC$(16) 3660 RETURN 3670 PRINTDC$(5)DC$(17)DC$(1)DC$(17)DC$(2)DC$(17)DC$(3)DC$(17)DC$(4)DC$(17) 3680 PRINT"[145]"DC$(6)DC$(17)DC$(6)DC$(17)DC$(7)DC$(17)DC$(8)DC$(17)DC$(9)DC$(17) 3690 PRINT"[145]"DC$(10)DC$(17)DC$(11) 3700 RETURN 3710 M$="BY PETER GATTUS":MM=64:GOSUB3740:RETURN 3720 M$="[158]INSTRUCTIONS ( / )":MM=40:GOSUB3740:RETURN 3730 M$="[145]COPYRIGHT 1988":MM=66:GOSUB3740:RETURN 3740 IFLEN(M$)<>INT(LEN(M$)/2)THENM$=M$+" " 3750 L=LEN(M$):TA=(MM-L)/2:TB=L/2:TC=TA+TB:FORJ=1TOTB:TC=TC-1 3760 PRINTTAB(TC)LEFT$(M$,J)TAB(TB)RIGHT$(M$,J)"[145]":NEXT 3770 RETURN 3780 PRINT"" 3790 AA$="[158] [201]MPORTANT ! ! ! " 3800 AA$=AA$+" [212]HIS IS THE [204]AST [204]ABEL ON [198]ILE. " 3810 FORAA=1TOLEN(AA$):PRINT"":FORI=1TO15:NEXTI 3820 PRINT" "MID$(AA$,AA,34)" ":NEXTAA 3830 RETURN 3840 PRINT"[147]"CHR$(14)SPC(14)"[201]NSTRUCTIONS" 3850 RETURN 3860 : 3870 X=3:Y=8:GOSUB4420 3880 PRINT":";:SYS32768,15,3,LO$ 3890 RETURN 3900 : 3910 X=3:Y=8:GOSUB4420 3920 PRINT":";: 3930 SYS32768,12,3,BL$:CC$(I,2)=BL$ 3940 RETURN 3950 : 3960 X=3:Y=8:GOSUB4420 3970 PRINT":"; 3980 SYS32768,27,7,BL$:CC$(I,3)=BL$ 3990 RETURN 4000 : 4010 X=3:Y=8:GOSUB4420 4020 PRINT"[195]ITY :";: 4030 SYS32768,14,3,CC$(I,4) 4040 : 4050 : 4060 X=3:Y=8:GOSUB4420 4070 PRINT"[211]TATE [157][157][157][157][157][157][157][157][157][157][157][157][157][157]:"; 4080 SYS32768,12,3,CC$(I,5) 4090 RETURN 4100 : 4110 X=3:Y=8:GOSUB4420 4120 PRINT":"; 4130 SYS32768,10,12,CC$(I,6) 4140 RETURN 4150 : 4160 X=3:Y=8:GOSUB4420 4170 PRINT"[195]ITY :";: 4180 SYS32768,14,3,CC$(I,4) 4190 RETURN 4200 : 4210 X=3:Y=8:GOSUB4420 4220 PRINT"[211]TATE [157][157][157][157][157][157][157][157][157][157][157][157][157][157]:"; 4230 SYS32768,12,3,CC$(I,5) 4240 RETURN 4250 : 4260 X=3:Y=8:GOSUB4420 4270 PRINT":";: 4280 SYS32768,5,4,ZC$ 4290 RETURN 4300 REM------VIEW NEXT CARD----------- 4310 X=2:Y=22:GOSUB4420:PRINT"[197]DIT / [208]RINT / [205]AIN [205]ENU / + / -" 4320 RETURN 4330 X=4:Y=22:GOSUB4420:PRINT"[211]CRATCH / [212]RY AGAIN / [205]AIN MENU" 4340 RETURN 4350 X=10:Y=22:GOSUB4420:PRINT"[195]ONTINUE / [205]AIN MENU":RETURN 4360 PRINT"[147]":X=16:Y=11:GOSUB4420:PRINT"[158][208][210][201][206][212][201][206][199]":RETURN 4370 V=53248:POKEV+29,7:POKEV+21,7 4380 POKEV+39,9:POKE2040,13:POKE2041,13:POKEV+40,9:POKEV+27,7:POKE2042,13 4390 POKEV+41,9 4400 FOR NN=0TO62:READ Q:POKE 832+NN+X*64,Q:NEXTNN:RETURN 4410 POKEV,119:POKEV+1,B:POKEV+2,164:POKEV+3,B:POKEV+4,200:POKEV+5,B:RETURN 4420 POKE781,Y:POKE782,X:POKE783,0:SYS65520:RETURN 4430 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,255,255,255,255,255,255 4440 DATA 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255 4450 DATA 255,255,255,255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 10000 PRINT" [208]RINTER NOT DETECTED - [208]RESS ([211][208][193][195][197]) 10001 [161]BS$:[139]BS$[179][177]" "[167]10001 10002 [142]